home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / doc / Visual Basic / Image863.gif < prev    next >
Graphics Interchange Format  |  1999-11-20  |  206.1 KB  |  545x463  |  8-bit (138 colors)
   ocr: Familia = Text5.Text For I=1To 5 If Familia = Sesia (I).Familia Then Sredn 0 For J To 3 Sredn = Sredn + Sesia(1).RezultExam (J) Next J Sredn L Sredn / 3 End If Next I Text6.Text = Strs (Sredn) End Sub Private Sub Form Load() Label2.Caption - "ouauka' Label3.Caption l "Maremaruka Label4.Caption = "Wcropna' - command2.Enabled = False commandl.Enabled = True I= I+1 End Sub